licenseinfo = "public domain"

p 0 minus 3.14159
while
now = p
p = now plus 0.09
x = p cos  times 6 plus 400
y = p sin  times 6 plus 400
x2 = p cos times 11 plus 90
y2 = p sin times 11 plus 90 
 
var line x y x2 y2 5

x3 = x2 plus 10
y3 = y2 plus 5

var line x y x3 y3 1


ifmore p 3.14159
break
fig

wend

now "" lineinput 